home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Bible / newtest.d81 / o.whole search (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  4KB  |  115 lines
  1. 15 poke56,40:clr:poke53272,23:print"";
  2. 35 dv=peek(186):ifdv<8ordv>16thendv=8
  3. 37 sys57812"bible 3000",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  4. 38 sys57812"dtext 2800",dv,0:poke780,0:poke781,0:poke782,40:sys65493
  5. 40 mt=12288:dtext=10240:dimfiles$(10),d%(7),b$(66)
  6. 50 rem poke53374,0:poke53366,0:poke53375,0
  7. 55 sysmt+201,95,105,4,10,14,1,14,7,6,1,0,0
  8. 60 sys10240,"books",dv,80*256:sysmt+36,80*256:wb=peek(20):sysmt+54:bl=f%
  9. 65 sysmt+15,"bnames",dv,107*256:sysmt+36,107*256:sysmt+54:bn=f%
  10. 66 fori=0to65:sysmt+33,i:b$(i)=w$:next
  11. 70 open2,dv,2,"bible mark,p,r":get#2,a$,a$:input#2,bb,bc,bv:close2
  12. 75 ifst<>64thenbb=39:nc=1:bv=1
  13. 80 poke650,128:sh=mt+96:fr=mt+6:ce=mt+78:bo=mt+3:at=ce-3
  14. 85 x=0:fori=8to29:ifi<>14thenclose2:open2,i,2:close2:ifst=0thend%(x)=i:x=x+1
  15. 90 next:fori=0tox:ifd%(i)=dvthena=i
  16. 95 next:nd=x:i=d%(0):d%(a)=i:d%(0)=dv:dx=0
  17. 100 t$="[194]ible [211]earch"
  18. 105 a$(1)="[211]tart [193] [211]earch      ([211])"
  19. 125 a$(2)="[194]ack to [205]ain [205]odule ([205])
  20. 136 a$(3)[178]"(NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)  ((NULL))"
  21. 140 h$[178]" smq"
  22. 145 [158]mt[170]198,t$,3,a$(1),a$(2),a$(3),h$
  23. 150 [145]f%[141]300,190,190,210:[137]100
  24. 190 f$[178]"compleat nt":[137]2300
  25. 200 f$[178]"compleat nt":[137]2300
  26. 210 f$[178]"hello connect":[137]2300
  27. 300 [158]mt[170]36,80[172]256:[158]mt,1,38,1,23,95,105,15,12
  28. 310 [158]sh,2,2[170]wb,3,20:[158]bo,3,3[170]wb,14,19,160,15
  29. 320 [158]at,4,15,"list(NULL)lease select each
  30. 330 sysat,4,16,"book to be searched
  31. 340 [158]at,4,17,"w/(NULL)val(NULL)(NULL)(NULL)(NULL). (NULL)left$-(NULL) to
  32. 350 sysat,4,18,"find book. [198]1 [206]ext
  33. 360 [158]mt[170]42,3,3[170]wb,2,12,1,12,7,1,bb,65,1:[141]2400:[142]
  34. 365 book%[178]i%:[139]lb[178]i%[167]410
  35. 370 ww$[178]w$:[158]mt[170]84,w$:f$[178]w$:t[178]0
  36. 380 [141]1000:[139]f%[178][171]1[176][197](a$)[167][139]t[179]nd[167][141]2100:[137]380
  37. 390 [139]f%[178][171]1[167]e$[178]"error bnf":[141]2200:[142]
  38. 400 [158]mt[170]48,0:[158]mt[170]27,bl:[158]mt[170]30,ww$,bo%,1:[158]dt,w$,d%(dx),84[172]256:hs[178]0:lh$[178]w$
  39. 1000 [158]mt[170]39,"$:"[170]f$,d%(dx),208[172]256:[158]mt[170]48,0:[160]15:[159]15,d%(dx),15
  40. 1010 [132]15,a$,e$:[160]15:[142]
  41. 2100 dx[178]dx[170]1:[139]d%(dx)[178]0[167]dx[178]0
  42. 2110 t[178]t[170]1:[142]
  43. 2200 [158]sh,0,39,0,24:[158]mt[170]48,0:[158]mt[170]15,e$,dv,28000:[158]mt[170]36,28000:en[178]f%[171]1
  44. 2205 [139]e$[178]"error bnf"[167][158]mt[170]30,"   right$ couldn't find "[170][199](34)[170]f$[170][199](34),1,1
  45. 2210 [158]box,0,39,1,19,160,7:[158]frame,0,39,0,20,2
  46. 2220 [158]mt[170]42,1,38,1,19,1,7,1,1,0,en[171]1,0:[142]
  47. 2300 t[178]0
  48. 2310 [141]1000:[139][197](a$)[176]f%[179]0[167][139]t[179]nd[167][141]2100:[137]2310
  49. 2320 [139][197](a$)[178]0[175]f%[177][171]1[167]40000
  50. 2330 e$[178]"error bnf":[137]2200
  51. 2400 [153]"open";:[158]mt[170]27,bl:[151]828,0:[158]mt[170]213,0,65:[139]f%[177][171]1[167]2460
  52. 2410 a$[178]"(NULL)o books selected":[141]5020:[151]1998,0:[142]
  53. 2460 [158]bo,2,37,22,22,32,0:[158]at,2,22,"waitsys(NULL)earch:"
  54. 2470 [158]mt[170]51,1,3,20,"":s$[178]w$:[139]s$[178]""[167][142]
  55. 2480 of$[178]"":a$[178]"chr$enerate (NULL)utput ascile ((NULL)/(NULL))?":[141]5020:[161]a$:[139]a$[179][177]"y"[167]2560
  56. 2490 [158]bo,2,37,22,22,32,0:[158]at,2,22,"waitopen(NULL)utfile name: "
  57. 2500 [158]mt[170]51,1,7,16,"@0:search.txt":of$[178]w$
  58. 2515 [158]bo,2,37,22,22,32,0:[158]at,2,22,"waitopenstr$evice number: "
  59. 2520 [158]mt[170]51,1,7,2,[202]([196](dv),2):of[178][197](w$):[139]of[178]0[167]of$[178]""
  60. 2530 [139]of$[179][177]""[167][159]5,of,7,of$[170]",s,w":[152]5,[199](13)[199](13)
  61. 2560 [129]bb[178]0[164]65
  62. 2565 [158]mt[170]48,0:[158]mt[170]27,bl:[158]mt[170]33,bb
  63. 2570 [139]f%[167]f$[178]b$(bb)[170]"???-???":a$[178]"(NULL)earching "[170]w$:bo$[178]w$:[141]5000:[141]4000
  64. 2575 [130]:[160]5:[151]186,dv:[138]
  65. 2999 [144]
  66. 3000 [158]mt[170]27,bn:[158]mt[170]33,bo%:[142]
  67. 4000 dx[178]0
  68. 4010 [141]1000:[139]f%[179]0[167][139]dx[179](nd[171]1)[167]dx[178]dx[170]1:[137]4010
  69. 4020 [139]f%[179]0[167][142]
  70. 4025 fi[178]f%:[158]mt[170]48,1:[129]j[178]0[164]fi:[158]mt[170]33,j:fi$(j)[178]w$:[130]:jj[178]0
  71. 4030 [139]of[178]d%(dx)[167][160]5
  72. 4033 [158]mt[170]48,0:[158]dt,fi$(jj),d%(dx),84[172]256:[158]mt[170]36,84[172]256:en[178]f%[171]2
  73. 4035 sp[178]0
  74. 4040 [158]mt[170]210,s$,sp,en:[139]f%[177][171]1[167][141]5100
  75. 4090 [139]jj[179]fi[167]jj[178]jj[170]1:[137]4030
  76. 5000 [158]mt,0,39,0,24,107,115,4,10
  77. 5005 [158]sh,0,37,16,21:[158]fr,1,38,16,20,15:[158]bo,2,37,17,19,160,1
  78. 5010 [153]"";:[158]ce,18,a$:[142]
  79. 5020 [141]5000:[151]198,0:[146]198,15:[142]
  80. 5100 sp[178]f%:k[178]0:[143]ifsp>enthenreturn
  81. 5110 [139](sp[171]k)[177]0[167]k[178]k[170]1:[158]mt[170]33,sp[171]k:[139]w$[179][177]""[167]5110
  82. 5120 bv[178]sp[171]k
  83. 5130 k[178]0:[139]sp[177]en[167]ev[178]sp:[142]
  84. 5140 [139](sp[170]k)[179]en[167]k[178]k[170]1:[158]mt[170]33,sp[170]k:[139]w$[179][177]""[167]5140
  85. 5150 ev[178]sp[170]k:[139]ev[177]en[167]ev[178]en
  86. 5160 a$[178]" ":[141]5000
  87. 5165 [158]bo,0,39,0,0,160,15:[158]bo,0,39,1,1,160,1:[158]bo,0,39,2,2,160,12
  88. 5166 [158]bo,0,39,4,4,160,1:[158]bo,0,39,5,14,160,15:[158]bo,0,39,15,15,160,12
  89. 5167 [153]"";:[158]ce,1,bo$
  90. 5170 a[178]0:[153]"list";:[129]l[178]bv[164]bv[170]9:[139]l[179]en[167][158]mt[170]33,l:[158]at,1,5[170]a,w$:a[178]a[170]1
  91. 5180 [130]
  92. 5190 [139]of$[179][177]""[167]a$[178]"(NULL)riting to "[170]of$:[141]5005:[141]5600:[137]5300
  93. 5200 [153]"";:[158]at,3,17,"ascind (NULL)ext (NULL)ccurrence       ((NULL))"
  94. 5220 [158]at,3,18,"(NULL)rint (NULL)his (NULL)ccurrence      ((NULL))"
  95. 5230 [158]at,3,19,"(NULL)uit and (NULL)e-start (NULL)rogram  ((NULL))"
  96. 5240 [158]mt[170]63,17,2,37,3,1,7,"npq"
  97. 5250 [145]f%[137]5300,5400,5500
  98. 5300 [139]sp[178]en[167][142]
  99. 5305 sp[178]ev:[158]mt[170]210,s$,sp,en:[139]f%[177][171]1[167]5100
  100. 5310 [142]
  101. 5400 [160]4:[159]4,4,7:[160]4:[139]st[167]5240
  102. 5405 [159]4,4,7:[139]lb$[179][177]bo$[167][152]4,"[**"s$" found in "bo$"**]":lb$[178]bo$
  103. 5410 [129]l[178]bv[164]ev:[158]mt[170]33,l:[152]4,w$:[130]:[160]4:[151]631,[198]("n"):[151]198,1
  104. 5420 [137]5240
  105. 5500 [160]5:[151]186,dv:[138]
  106. 5600 [139]of[178]d%(dx)[167][160]5:[159]5,of,5,of$[170]",s,a"
  107. 5605 [139]lb$[179][177]bo$[167][152]5,"[**"s$" found in "bo$"**]":lb$[178]bo$
  108. 5610 [129]l[178]bv[164]ev:[158]mt[170]33,l:[152]5,w$:[130]:[142]
  109. 9999 [144]
  110. 10000 _"@0:o.whole search"
  111. 10010 [144]
  112. 40000 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  113. 40100 [153]"loadl(NULL)"q$f$q$","d%(dx)
  114. 40110 [153]"p(NULL)53272,23:run:":[151]631,13:[151]632,13:[151]198,2:[128]
  115.